Best of www.BestZips.com (Collector's Edition)/Best of WWW.BESTZIPS.COM Collector's Edition (JCSM Shareware) (JCS Marketing).ISO/prgtools/prtsut53.zip/SU1SRC.ZIP/FDEMO20.DFM/FDEMO20.txt

Text File | 1996-12-09 | 22KB | 929 lines

object Form20: TForm20
  Left = 81
  Top = 76
  Width = 640
  Height = 639
  ActiveControl = Panel1
  Caption = 'Form20'
  Font.Color = clBlack
  Font.Height = -14
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 120
  Position = poScreenCenter
  OnCreate = FormCreate
  TextHeight = 16
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 632
    Height = 50
    Align = alTop
    TabOrder = 0
    object DBNavigator: TDBNavigator
      Left = 10
      Top = 10
      Width = 291
      Height = 31
      DataSource = DataSource1
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 0
    end
    object Preview: TBitBtn
      Left = 332
      Top = 10
      Width = 71
      Height = 33
      Hint = 'Preview /Print current page'
      Caption = '&Preview'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnClick = PreviewClick
    end
    object PrintAll: TBitBtn
      Left = 404
      Top = 10
      Width = 71
      Height = 33
      Hint = 'Print all from Query'
      Caption = 'Print&All'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnClick = PrintAllClick
    end
    object Print3: TBitBtn
      Left = 476
      Top = 10
      Width = 71
      Height = 33
      Hint = 'Print next 3 records from Query'
      Caption = 'Print&3'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnClick = Print3Click
    end
    object Exit: TBitBtn
      Left = 548
      Top = 10
      Width = 71
      Height = 33
      Hint = 'Exit'
      Caption = '&Exit'
      ModalResult = 2
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      OnClick = ExitClick
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 91
    Width = 632
    Height = 232
    Align = alTop
    BevelInner = bvLowered
    BorderWidth = 4
    Caption = 'Panel2'
    TabOrder = 1
    object ScrollBox: TScrollBox
      Left = 6
      Top = 6
      Width = 620
      Height = 220
      HorzScrollBar.Margin = 6
      HorzScrollBar.Range = 337
      VertScrollBar.Margin = 6
      VertScrollBar.Range = 348
      VertScrollBar.Visible = False
      Align = alClient
      AutoScroll = False
      BorderStyle = bsNone
      TabOrder = 0
      object Label1: TLabel
        Left = 6
        Top = 10
        Width = 109
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'CustNo'
        FocusControl = EditCustNo
      end
      object Label2: TLabel
        Left = 6
        Top = 36
        Width = 109
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Company'
        FocusControl = EditCompany
      end
      object Label3: TLabel
        Left = 6
        Top = 62
        Width = 109
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Addr1'
        FocusControl = EditAddr
      end
      object Label4: TLabel
        Left = 6
        Top = 88
        Width = 109
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Addr2'
        FocusControl = EditAddr2
      end
      object Label5: TLabel
        Left = 6
        Top = 114
        Width = 109
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'City'
        FocusControl = EditCity
      end
      object Label6: TLabel
        Left = 6
        Top = 140
        Width = 109
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'State'
        FocusControl = EditState
      end
      object Label7: TLabel
        Left = 6
        Top = 166
        Width = 109
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Zip'
        FocusControl = EditZip
      end
      object Label8: TLabel
        Left = 6
        Top = 192
        Width = 109
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Country'
        FocusControl = EditCountry
      end
      object EditCustNo: TDBEdit
        Left = 121
        Top = 6
        Width = 70
        Height = 24
        DataField = 'CustNo'
        DataSource = DataSource1
        MaxLength = 0
        TabOrder = 0
      end
      object EditCompany: TDBEdit
        Left = 121
        Top = 32
        Width = 210
        Height = 24
        DataField = 'Company'
        DataSource = DataSource1
        MaxLength = 30
        TabOrder = 1
      end
      object EditAddr: TDBEdit
        Left = 121
        Top = 58
        Width = 210
        Height = 24
        DataField = 'Addr1'
        DataSource = DataSource1
        MaxLength = 30
        TabOrder = 2
      end
      object EditAddr2: TDBEdit
        Left = 121
        Top = 84
        Width = 210
        Height = 24
        DataField = 'Addr2'
        DataSource = DataSource1
        MaxLength = 30
        TabOrder = 3
      end
      object EditCity: TDBEdit
        Left = 121
        Top = 110
        Width = 105
        Height = 24
        DataField = 'City'
        DataSource = DataSource1
        MaxLength = 15
        TabOrder = 4
      end
      object EditState: TDBEdit
        Left = 121
        Top = 136
        Width = 140
        Height = 24
        DataField = 'State'
        DataSource = DataSource1
        MaxLength = 20
        TabOrder = 5
      end
      object EditZip: TDBEdit
        Left = 121
        Top = 162
        Width = 70
        Height = 24
        DataField = 'Zip'
        DataSource = DataSource1
        MaxLength = 10
        TabOrder = 6
      end
      object EditCountry: TDBEdit
        Left = 121
        Top = 188
        Width = 140
        Height = 24
        DataField = 'Country'
        DataSource = DataSource1
        MaxLength = 20
        TabOrder = 7
      end
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 364
    Width = 632
    Height = 248
    Align = alClient
    BevelInner = bvLowered
    BorderWidth = 4
    Caption = 'Panel2'
    TabOrder = 2
    object ScrollBox1: TScrollBox
      Left = 6
      Top = 6
      Width = 620
      Height = 236
      HorzScrollBar.Margin = 6
      VertScrollBar.Margin = 6
      VertScrollBar.Position = 750
      Align = alClient
      BorderStyle = bsNone
      Color = clBtnFace
      ParentColor = False
      TabOrder = 0
      object Label14: TLabel
        Left = 24
        Top = -710
        Width = 298
        Height = 16
        Caption = '1111 St James'#39' Street, Pretoria, South Africa, 0083'
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsItalic]
        ParentFont = False
      end
      object Shape1: TShape
        Left = 20
        Top = -690
        Width = 737
        Height = 5
        Brush.Color = clBlack
      end
      object Label18: TLabel
        Left = 436
        Top = -710
        Width = 29
        Height = 16
        Caption = 'Fax :'
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsItalic]
        ParentFont = False
      end
      object Label19: TLabel
        Left = 428
        Top = -630
        Width = 3
        Height = 16
        Caption = '.'
      end
      object Label28: TLabel
        Left = 28
        Top = 166
        Width = 70
        Height = 18
        Caption = 'The Chief'
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = [fsBold, fsUnderline]
        ParentFont = False
      end
      object Label29: TLabel
        Left = 24
        Top = -742
        Width = 163
        Height = 26
        Caption = 'Demo Company'
        Font.Color = clBlack
        Font.Height = -23
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object Label20: TLabel
        Left = 468
        Top = -710
        Width = 100
        Height = 16
        Caption = '[phone]'
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsItalic]
        ParentFont = False
      end
      object Image1: TImage
        Left = 707
        Top = -619
        Width = 85
        Height = 105
        Picture.Data = {<image000.bmp>}
      end
      object Label9: TLabel
        Left = 16
        Top = -392
        Width = 58
        Height = 17
        Caption = 'Dear Sir,'
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object Label10: TLabel
        Left = 18
        Top = -352
        Width = 310
        Height = 17
        Caption = 'Thank you for registering your company with us.'
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object Label11: TLabel
        Left = 164
        Top = -256
        Width = 109
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Company'
        FocusControl = EditCompany
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'Times New Roman'
        Font.Style = []
        ParentFont = False
      end
      object Label12: TLabel
        Left = 164
        Top = -230
        Width = 109
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Address'
        FocusControl = EditAddr
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'Times New Roman'
        Font.Style = []
        ParentFont = False
      end
      object Label15: TLabel
        Left = 164
        Top = -178
        Width = 109
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'City'
        FocusControl = EditCity
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'Times New Roman'
        Font.Style = []
        ParentFont = False
      end
      object Label16: TLabel
        Left = 164
        Top = -152
        Width = 109
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'State'
        FocusControl = EditState
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'Times New Roman'
        Font.Style = []
        ParentFont = False
      end
      object Label17: TLabel
        Left = 164
        Top = -126
        Width = 109
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Zip'
        FocusControl = EditZip
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'Times New Roman'
        Font.Style = []
        ParentFont = False
      end
      object Label21: TLabel
        Left = 164
        Top = -100
        Width = 109
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Country'
        FocusControl = EditCountry
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'Times New Roman'
        Font.Style = []
        ParentFont = False
      end
      object Label13: TLabel
        Left = 26
        Top = -44
        Width = 199
        Height = 19
        Caption = 'Your customer number is'
        Font.Color = clBlack
        Font.Height = -17
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label22: TLabel
        Left = 28
        Top = 34
        Width = 316
        Height = 19
        Caption = 'Please quote it in all future correspondence'
        Font.Color = clBlack
        Font.Height = -17
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object Memo5: TMemo
        Left = 16
        Top = -323
        Width = 797
        Height = 46
        BorderStyle = bsNone
        Color = clBtnFace
        Ctl3D = False
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = []
        Lines.Strings = (

            'To enable us to keep our records up to date, please check the fo' +
            'llowing details and make sure they are '
          'correct'#39)
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 0
      end
      object Memo6: TMemo
        Left = 24
        Top = 60
        Width = 771
        Height = 63
        BorderStyle = bsNone
        Color = clBtnFace
        Ctl3D = False
        Font.Color = clBlack
        Font.Height = -17
        Font.Name = 'Arial'
        Font.Style = []
        Lines.Strings = (

            'Your support and satisfaction is very important to us. If you ha' +
            've a problem, please let us know.'
          'Thank you and best regards.'
          ''
          ''
          '')
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 1
      end
      object Memo7: TMemo
        Left = 28
        Top = 189
        Width = 721
        Height = 28
        BorderStyle = bsNone
        Color = clWhite
        Ctl3D = False
        Font.Color = clBlack
        Font.Height = -17
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        Lines.Strings = (
          'Ps. This is a demo program'
          '')
        ParentCtl3D = False
        ParentFont = False
        ReadOnly = True
        TabOrder = 2
      end
      object Edit1: TEdit
        Left = 22
        Top = -674
        Width = 119
        Height = 24
        BorderStyle = bsNone
        Color = clBtnFace
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 3
        Text = '12 January1996'
      end
      object DBEdit2: TDBEdit
        Left = 19
        Top = -610
        Width = 210
        Height = 25
        DataField = 'Company'
        DataSource = DataSource1
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = []
        MaxLength = 30
        ParentFont = False
        TabOrder = 4
      end
      object DBEdit3: TDBEdit
        Left = 19
        Top = -584
        Width = 210
        Height = 25
        DataField = 'Addr1'
        DataSource = DataSource1
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = []
        MaxLength = 30
        ParentFont = False
        TabOrder = 5
      end
      object DBEdit4: TDBEdit
        Left = 19
        Top = -558
        Width = 210
        Height = 25
        DataField = 'Addr2'
        DataSource = DataSource1
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = []
        MaxLength = 30
        ParentFont = False
        TabOrder = 6
      end
      object DBEdit5: TDBEdit
        Left = 19
        Top = -532
        Width = 105
        Height = 25
        DataField = 'City'
        DataSource = DataSource1
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = []
        MaxLength = 15
        ParentFont = False
        TabOrder = 7
      end
      object DBEdit6: TDBEdit
        Left = 19
        Top = -506
        Width = 140
        Height = 25
        DataField = 'State'
        DataSource = DataSource1
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = []
        MaxLength = 20
        ParentFont = False
        TabOrder = 8
      end
      object DBEdit7: TDBEdit
        Left = 19
        Top = -480
        Width = 70
        Height = 25
        DataField = 'Zip'
        DataSource = DataSource1
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = []
        MaxLength = 10
        ParentFont = False
        TabOrder = 9
      end
      object DBEdit8: TDBEdit
        Left = 19
        Top = -454
        Width = 140
        Height = 25
        DataField = 'Country'
        DataSource = DataSource1
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = []
        MaxLength = 20
        ParentFont = False
        TabOrder = 10
      end
      object DBEdit1: TDBEdit
        Left = 279
        Top = -260
        Width = 210
        Height = 24
        DataField = 'Company'
        DataSource = DataSource1
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = []
        MaxLength = 30
        ParentFont = False
        TabOrder = 11
      end
      object DBEdit9: TDBEdit
        Left = 279
        Top = -234
        Width = 210
        Height = 24
        DataField = 'Addr1'
        DataSource = DataSource1
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = []
        MaxLength = 30
        ParentFont = False
        TabOrder = 12
      end
      object DBEdit10: TDBEdit
        Left = 279
        Top = -208
        Width = 210
        Height = 24
        DataField = 'Addr2'
        DataSource = DataSource1
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = []
        MaxLength = 30
        ParentFont = False
        TabOrder = 13
      end
      object DBEdit11: TDBEdit
        Left = 279
        Top = -182
        Width = 105
        Height = 24
        DataField = 'City'
        DataSource = DataSource1
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = []
        MaxLength = 15
        ParentFont = False
        TabOrder = 14
      end
      object DBEdit12: TDBEdit
        Left = 279
        Top = -156
        Width = 140
        Height = 24
        DataField = 'State'
        DataSource = DataSource1
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = []
        MaxLength = 20
        ParentFont = False
        TabOrder = 15
      end
      object DBEdit13: TDBEdit
        Left = 279
        Top = -130
        Width = 70
        Height = 24
        DataField = 'Zip'
        DataSource = DataSource1
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = []
        MaxLength = 10
        ParentFont = False
        TabOrder = 16
      end
      object DBEdit14: TDBEdit
        Left = 279
        Top = -104
        Width = 140
        Height = 24
        DataField = 'Country'
        DataSource = DataSource1
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = []
        MaxLength = 20
        ParentFont = False
        TabOrder = 17
      end
      object DBEdit15: TDBEdit
        Left = 275
        Top = -10
        Width = 70
        Height = 24
        DataField = 'CustNo'
        DataSource = DataSource1
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = []
        MaxLength = 0
        ParentFont = False
        TabOrder = 18
      end
    end
  end
  object Panel4: TPanel
    Left = 0
    Top = 50
    Width = 632
    Height = 41
    Align = alTop
    Caption = 'Demo Chain Letter'
    Font.Color = clNavy
    Font.Height = -23
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
  end
  object Panel5: TPanel
    Left = 0
    Top = 323
    Width = 632
    Height = 41
    Align = alTop
    Caption = 'A few Panels - Only bottom Panel is printed as the chain letter'
    Font.Color = clNavy
    Font.Height = -17
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 4
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'DBDEMOS'
    SQL.Strings = (
      'Select'
      '  customer."CustNo",'
      '  customer."Company",'
      '  customer."Addr1",'
      '  customer."Addr2",'
      '  customer."City",'
      '  customer."State",'
      '  customer."Zip",'
      '  customer."Country",'
      '  customer."Phone",'
      '  customer."FAX",'
      '  customer."TaxRate",'
      '  customer."Contact",'
      '  customer."LastInvoiceDate"'
      'From customer')
    Left = 260
    Top = 5
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 287
    Top = 5
  end
  object DBPrintWin1: TDBPrintWin
    About = 'Version 5.32'
    AboutRegistered = 'TOM SNIDER'
    HeaderFont.Color = clWindowText
    HeaderFont.Height = 16
    HeaderFont.Name = 'Arial'
    HeaderFont.Style = []
    Font.Color = clWindowText
    Font.Height = 16
    Font.Name = 'Arial'
    Font.Style = []
    FooterFont.Color = clWindowText
    FooterFont.Height = 12
    FooterFont.Name = 'Arial'
    FooterFont.Style = []
    FrameObjects = True
    clBtnFaceAsWhite = True
    OutputTo = poViewer
    Orientation = Default
    Units = poInches
    ViewButtonVisible = False
    ShowCancelDialog = True
    LineWidth = 0
    Copies = 1
    GridBackDrop = False
    GridBackDropUnits = poInches
    ZoomPercentage = 25.000000000000000000
    HeaderTop = 0.500000000000000000
    HeaderLeft = 0.500000000000000000
    HeaderStringLeft = '                                  '
    HeaderStringCenter = '                                  '
    HeaderStringRight = '                                  '
    HeaderEnabled = True
    HeaderOutlined = False
    HeaderFilled = False
    TextColor = clBlack
    ViewBkColor = 11234567
    ViewHeading = 'Printit Viewer'
    HeadingColor = clSilver
    FrameStyle = frThin
    FooterTop = 10.170000000000000000
    FooterString = '                                                  '
    FooterEnabled = True
    FooterOutlined = False
    FooterFilled = False
    FixSansSerif = True
    FooterStringLeft = 'Printed on @Date at @Time'
    FooterStringRight = 'Page @Page'
    BorderLeft = 0.500000000000000000
    BorderRight = 0.500000000000000000
    LineSpacing = 2.800000000000000000
    Left = 432
    Top = 58
  end
end